COMMENT ⊗   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	PRECEDE				< Preliminary things
C00004 ENDMK
C⊗;
PRECEDE;				< Preliminary things
FUNC EXAMP.FUN[INS,MUS];		< Get functions from EXAMP.FUN[INS,MUS]
FUNC FUN.FUN[SCR,LCS];
COMMON TOOT,CLAR;
COMMON newfm,FM,FM2,FM3,FM4;
*

REVRB 0 0 1;P2  63;END;

FM  36 ;
P2 RHY/A(B(8////4./8./16///4)/
REP 10 4)/
FINE;	< quarter note, 2 eighths, half
P3 NO/C(C4/CS/D/EF/D:F/G/F/EF/D/C);
CON " ";
P4 .9;					< maximum amplitude
P5 FUN/10//11;		  AMPL. FUNC.
P6 FUN/11/////10;				< FM INDEX ("SEG") function
P7 0  ;
P8 NU/2/25/8/REP 3 3/2/ 2/14/4/REP 3 3/2/ 1.5/6/2.5/ REP 3 3/2;	 < FM2
P9 NU/1.5/.625/P25/.7/2/REP 5 2/ 1.4/.8/.9/.7/2/REP 5 2/
1.2/.9/1/.9/1.1/REP 5 2/1X10; CARRIER SCALE FACTOR
P10 1;  MODULATOR SCALE FACTOR
P12 .08;
P25 .50 .9 1.1  .5 1 8;
DF 200.12;
END;
NEWFM 36 ;
DUPL 2;
P4 "*2";
P5 MOVE/20 .1 .9;
P9 0;
END;
FM2 36;
DUPL 2;
P3 NO/@$C;
P2 RH/@B.5/REP 10 8/FINE;
P4 "*4";
END;
FM3 36;
DUPL 2;
P2 RH/@B2/REP 10 2/FINE;
P4 "/4";
END;
FM4 0;
DUPL 2;
P2 RH/@B4/@B2/FINE;
END;
TEMPO/120;